home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / data_07 / wpart1.dir / 00029.ls < prev    next >
Encoding:
Text File  |  1995-05-09  |  908 b   |  44 lines
  1. on startMovie
  2.   global frag
  3.   set frag to 0
  4.   set the cursor of sprite 10 to 302
  5. end
  6.  
  7. on enlargement
  8.   global frag, myv, myho, myw, myhi, myl, myt
  9.   puppetSprite(10, 1)
  10.   set newho to ((320 - myho) * 2) + 320
  11.   set neww to ((225 - myv) * 2) + 225
  12.   put newho
  13.   if newho < (640 - myw) then
  14.     set newho to 640 - myw
  15.   end if
  16.   if newho > myw then
  17.     set newho to myw
  18.   end if
  19.   put newho
  20.   set the locH of sprite 10 to newho
  21.   put neww
  22.   if neww < (480 - myhi) then
  23.     set neww to 480 - myhi
  24.   end if
  25.   if neww > myhi then
  26.     set neww to myhi
  27.   end if
  28.   put neww
  29.   set the locV of sprite 10 to neww
  30.   set the height of sprite 10 to myhi * 2
  31.   set the width of sprite 10 to myw * 2
  32.   updateStage()
  33.   set frag to 1
  34. end
  35.  
  36. on small
  37.   global frag, myv, myho, myw, myhi, myl, myt
  38.   set the height of sprite 10 to myhi
  39.   set the width of sprite 10 to myw
  40.   updateStage()
  41.   set frag to 0
  42.   puppetSprite(10, 0)
  43. end
  44.